home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / dtp / Notes1.3.lha / Notes / english / Notes.pprx < prev    next >
Text File  |  1999-02-18  |  19KB  |  705 lines
  1. /*
  2. @B Notes V. 1.3 @P@ICopyright A.Faust 1999
  3.  This Genie prints notes
  4. */
  5.  
  6. /* History
  7.  
  8.     Version 1.0 (January 1999)
  9.     - first release
  10.  
  11.     Version 1.1. (2.2.99)
  12.     -some errors removed in the #?.files
  13.     -notationsrule for the "notefiles" altered
  14.      (in the case of - "n" - natural sign
  15.       like the other in one line)
  16.  
  17.     Version 1.2  (10.2.99)
  18.     -removed a error if givein is a b-accidental (example:"AB3")
  19.     -simplified the routine for accidentals
  20.     -added the possibility of writing single notelines with one
  21.      notekey
  22.     -multiple questions at the beginning collected in one requester
  23.     -expanded the range of the violinkey
  24.  
  25.     Version 1.3 (18.2.99)
  26.     -removed a bug in the bass.#? files
  27. */
  28.  
  29.  
  30. address command
  31.  
  32. 'execute C:AssignNotenDruck'
  33.  
  34.  
  35. /*
  36.    The file "AssignNotePrint" in the C: directory shall be written
  37.    with a normal texteditor, like ed or AE(Articel Editor from ProPage).
  38.    There will be assigned where the Genie looks for the Notefiles.
  39.    Also will be assigned the directory, where are the genies from ProPage
  40.    are placed.
  41.  
  42.    example:
  43.    assign Notes:   Work:MyNoteFileDirectory
  44.    assign Genies:  DTP:ProPage/ARexx
  45.                    |_______________________|
  46.  
  47.                    please insert your paths here
  48.  
  49. */
  50.  
  51. call SafeEndEdit.rexx()
  52. call ppm_AutoUpdate(0)
  53. call ppm_SetWireframe(0)
  54. notex=0
  55. notey=0
  56. call ppm_SetLineWeight(0.25)
  57. call ppm_SetMagMode(300)
  58. call ppm_SetBoxOutlines(0)
  59.  
  60. signal on halt
  61. signal on break_c
  62. signal on break_e
  63. signal on break_d
  64.  
  65.  
  66. start:
  67. do
  68.   neu = ppm_GetUserText(2, "New begin? (ALL WILL BE DELETED !!!!) Nothing=Break y/n")
  69.     if neu == "Y" then neu = "y"
  70.     if neu == "N" then neu = "n"
  71.  
  72.   select
  73.     when neu == "y" then
  74.         do
  75.         sicher =
  76.         call ppm_New()
  77.         call ppm_SetUnits(2)
  78.         call ppm_SetMagMode(200)
  79.         call ppm_SetFont('(CG)Times')
  80.         pgnm = ppm_CreatePage(1, 1, 0)
  81.         call ppm_SetPageType(pgnm, 4)
  82.         call ppm_SetRulerType(4)
  83.         call ppm_SetBoxLock(0, 0)
  84.         call ppm_DeleteBox(0)
  85.  
  86.         /* Headline */
  87.  
  88.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  89.         call ppm_SetSize(20)
  90.         call ppm_SetStyle(U)
  91.         call ppm_SetJustification(2)
  92.         call ppm_TextIntoBox(haedln, 'Title')
  93.         end
  94.     when neu == "n" then notenlinien()
  95.     otherwise exit_msg("User Break!")
  96.   end
  97.  
  98. notenlinien:
  99.   cr = '0a'x
  100.   form = "notelines ?    (y/n):y"cr"2/1 system (2/1v/1b):2"cr"accidentals (1#=1 #):"cr"time       (4/4=4 4):4 4"cr"v_iol/b_ass  [f_ile]:v"
  101.   eingabe = ppm_GetForm("Please give in ...          ", 5, form)
  102.   parse var eingabe res '0a'x systemart '0a'x vorz '0a'x takt '0a'x violbass
  103.   select
  104.     when systemart == '2' then NOP
  105.     when systemart == '1b' then NOP
  106.     when systemart == '1B' then systemart = '1b'
  107.     when systemart == '1v' then NOP
  108.     when systemart == '1V' then systemart = '1v'
  109.     otherwise exit_msg("Error in the input! Break!!!")
  110.   end
  111.   if res == '' then res = 'y'
  112.   if res == 'J' then res = 'y'
  113.   if res == 'y' then
  114.   do
  115.  
  116.         call ppm_SetUnits(2)
  117.         call ppm_SetMagMode(200)
  118.         call ppm_SetFont('(CG)Times')
  119.         pgnm = ppm_CurrentPage()
  120.         call ppm_SetPageType(pgnm, 4)
  121.         call ppm_SetRulerType(4)
  122.         call ppm_SetBoxLock(0, 0)
  123.         call ppm_DeleteBox(0)
  124.  
  125.         /* headline */
  126.  
  127.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  128.         call ppm_SetSize(20)
  129.         call ppm_SetStyle(U)
  130.         call ppm_SetJustification(2)
  131.         call ppm_TextIntoBox(haedln, 'Title')
  132.  
  133.         /* Autor */
  134.  
  135.         autor = ppm_CreateBox(13, 0.9, 6.5, 0.64, 0)
  136.         call ppm_SetSize(12)
  137.         call ppm_SetStyle(U)
  138.         call ppm_SetJustification(1)
  139.         call ppm_TextIntoBox(autor, "Autor: © Noname")
  140.  
  141.  
  142.      /* Draw notelines */
  143.  
  144.      do a=1 to 12
  145.        do b=1 to 5
  146.           call ppm_DrawLine(0, a*2+((b-1)/5), 19.5, a*2+((b-1)/5))
  147.        end
  148.      end
  149.  
  150.      /* Notekey and bracket at front */
  151.  
  152.      if systemart == '1v' then
  153.      do
  154.         call ppm_SetFont('(CG)Noten')
  155.  
  156.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  157.         call ppm_SetStyle(N)
  158.         call ppm_SetJustification(0)
  159.         call ppm_SetSize(45)
  160.         call ppm_TextIntoBox(violschl, 't')
  161.  
  162.         do c=1 to 11
  163.           call ppm_CloneBox(violschl, 0, (c*2))
  164.         end
  165.      end
  166.  
  167.      if systemart == '1b' then
  168.      do
  169.         call ppm_SetFont('(CG)Noten')
  170.  
  171.         bassschl = ppm_CreateBox(0.034, 1.88, 1.1, 1.1, 0)
  172.         call ppm_SetStyle(N)
  173.         call ppm_SetJustification(0)
  174.         call ppm_SetSize(30)
  175.         call ppm_TextIntoBox(bassschl, 'b')
  176.  
  177.         do c=1 to 11
  178.           call ppm_CloneBox(bassschl, 0, (c*2))
  179.         end
  180.      end
  181.  
  182.      if systemart == '2' then
  183.      do
  184.         call ppm_SetFont('(CG)Noten')
  185.  
  186.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  187.         call ppm_SetStyle(N)
  188.         call ppm_SetJustification(0)
  189.         call ppm_SetSize(45)
  190.         call ppm_TextIntoBox(violschl, 't')
  191.  
  192.         bassschl = ppm_CreateBox(0.034, 3.88, 1.1, 1.1, 0)
  193.         call ppm_SetSize(30)
  194.         call ppm_TextIntoBox(bassschl, 'b')
  195.  
  196.         call ppm_SetLineWeight(4)
  197.         vl = ppm_DrawLine(0, 1.98, 0, 4.82)
  198.  
  199.         call ppm_SetLineWeight(2)
  200.         vo = ppm_DrawLine(-0.07, 2.08, 0.303, 1.7627)
  201.         vu = ppm_DrawLine(-0.07, 4.74, 0.303, 5.052)
  202.  
  203.         do c=1 to 5
  204.           call ppm_CloneBox(violschl, 0, (c*4))
  205.           call ppm_CloneBox(bassschl, 0, (c*4))
  206.           call ppm_CloneBox(vl, 0, (c*4))
  207.           call ppm_CloneBox(vo, 0, (c*4))
  208.           call ppm_CloneBox(vu, 0, (c*4))
  209.         end
  210.      end
  211.      vorzeichen()
  212.   end
  213.   else
  214.   do
  215.    if res == 'N' then res = 'n'
  216.    if res == 'n' then vorzeichen()
  217.    else start()
  218.   end
  219. end
  220.  
  221. noteneingabe:
  222.  if violbass == '' then exit_msg("Error in the input! BREAK!!!")
  223.  resa = word(violbass,1)
  224.  resb = word(violbass,2)
  225.  if resa=='V' then resa = 'v'
  226.  if resa=='B' then resa = 'b'
  227.  if resb=='F' then resb = 'f'
  228.  select
  229.    when resa=='v' then violschl()
  230.    when resa=='b' then basschl()
  231.    otherwise noteneingabe()
  232.  end
  233.  
  234. violschl:
  235.  do
  236.  call ppm_SetFont('(CG)Noten')
  237.  select
  238.     when resb='' then
  239.     do
  240.      address command
  241.      rx 'Genies:Violinkey.rexx'
  242.     end
  243.     when resb='f' then
  244.     do
  245.      address command
  246.      rx 'Genies:Violinkey.file'
  247.     end
  248.     otherwise noteneingabe()
  249.  end
  250.  exit
  251.  end
  252.  
  253. basschl:
  254.  do
  255.  call ppm_SetFont('(CG)Noten')
  256.  select
  257.     when resb='' then
  258.     do
  259.      address command
  260.      rx 'Genies:Basskey.rexx'
  261.     end
  262.     when resb='f' then
  263.     do
  264.      address command
  265.      rx 'Genies:Basskey.file'
  266.     end
  267.     otherwise noteneingabe()
  268.  end
  269.  exit
  270.  end
  271.  
  272. exit
  273.  
  274. vorzeichen:
  275.  
  276. if vorz == "" then
  277. do
  278.   k = 0
  279.   takt()
  280. end
  281.  
  282. else
  283. do
  284.    call ppm_SetFont('(CG)Noten')
  285.    call ppm_SetSize(20)
  286.    zahl = word(vorz, 1)
  287.    if zahl >6 then vorzeichen()
  288.    art  = word(vorz, 2)
  289.    if art == 'B' then art = 'b'
  290.    yy = 0.28
  291.    j = 0
  292.    k = zahl
  293.  select
  294.    when art == 'b' then
  295.    do
  296.    art = 'f'
  297.       if systemart == '2' then
  298.       do
  299.         do i=1 to 6
  300.            if zahl== 1 then
  301.              do
  302.                call vorzeichenbox 1, (1.95+j)
  303.                call vorzeichenbox 1, (4.15+j)
  304.              end
  305.  
  306.            if zahl == 2 then
  307.              do
  308.                call vorzeichenbox 1, (1.95+j)
  309.                call vorzeichenbox 1, (4.15+j)
  310.                call vorzeichenbox 1.2, (1.65+j)
  311.                call vorzeichenbox 1.2, (3.85+j)
  312.              end
  313.  
  314.            if zahl == 3 then
  315.              do
  316.                call vorzeichenbox 1, (1.95+j)
  317.                call vorzeichenbox 1, (4.15+j)
  318.                call vorzeichenbox 1.2, (1.65+j)
  319.                call vorzeichenbox 1.2, (3.85+j)
  320.                call vorzeichenbox 1.4, (2.05+j)
  321.                call vorzeichenbox 1.4, (4.25+j)
  322.              end
  323.  
  324.            if zahl == 4 then
  325.              do
  326.              call vorzeichenbox 1, (1.95+j)
  327.              call vorzeichenbox 1, (4.15+j)
  328.              call vorzeichenbox 1.2, (1.65+j)
  329.              call vorzeichenbox 1.2, (3.85+j)
  330.              call vorzeichenbox 1.4, (2.05+j)
  331.              call vorzeichenbox 1.4, (4.25+j)
  332.              call vorzeichenbox 1.6, (1.75+j)
  333.              call vorzeichenbox 1.6, (3.95+j)
  334.              end
  335.  
  336.            if zahl == 5 then
  337.              do
  338.              call vorzeichenbox 1, (1.95+j)
  339.              call vorzeichenbox 1, (4.15+j)
  340.              call vorzeichenbox 1.2, (1.65+j)
  341.              call vorzeichenbox 1.2, (3.85+j)
  342.              call vorzeichenbox 1.4, (2.05+j)
  343.              call vorzeichenbox 1.4, (4.25+j)
  344.              call vorzeichenbox 1.6, (1.75+j)
  345.              call vorzeichenbox 1.6, (3.95+j)
  346.              call vorzeichenbox 1.8, (2.15+j)
  347.              call vorzeichenbox 1.8, (4.35+j)
  348.              end
  349.  
  350.            if zahl == 6 then
  351.              do
  352.                call vorzeichenbox 1, (1.95+j)
  353.                call vorzeichenbox 1, (4.15+j)
  354.                call vorzeichenbox 1.2, (1.65+j)
  355.                call vorzeichenbox 1.2, (3.85+j)
  356.                call vorzeichenbox 1.4, (2.05+j)
  357.                call vorzeichenbox 1.4, (4.25+j)
  358.                call vorzeichenbox 1.6, (1.75+j)
  359.                call vorzeichenbox 1.6, (3.95+j)
  360.                call vorzeichenbox 1.8, (2.15+j)
  361.                call vorzeichenbox 1.8, (4.35+j)
  362.                call vorzeichenbox 2.0, (1.85+j)
  363.                call vorzeichenbox 2.0, (4.05+j)
  364.              end
  365.            j=j+4
  366.         end
  367.       end
  368.       if systemart == '1b' then
  369.       do
  370.         do i=1 to 12
  371.            if zahl== 1 then
  372.              do
  373.                call vorzeichenbox 1, (2.15+j)
  374.              end
  375.  
  376.            if zahl == 2 then
  377.              do
  378.                call vorzeichenbox 1, (2.15+j)
  379.                call vorzeichenbox 1.2, (1.85+j)
  380.              end
  381.  
  382.            if zahl == 3 then
  383.              do
  384.                call vorzeichenbox 1, (2.15+j)
  385.                call vorzeichenbox 1.2, (1.85+j)
  386.                call vorzeichenbox 1.4, (2.25+j)
  387.              end
  388.  
  389.            if zahl == 4 then
  390.              do
  391.                call vorzeichenbox 1, (2.15+j)
  392.                call vorzeichenbox 1.2, (1.85+j)
  393.                call vorzeichenbox 1.4, (2.25+j)
  394.                call vorzeichenbox 1.6, (1.95+j)
  395.              end
  396.  
  397.            if zahl == 5 then
  398.              do
  399.                call vorzeichenbox 1, (2.15+j)
  400.                call vorzeichenbox 1.2, (1.85+j)
  401.                call vorzeichenbox 1.4, (2.25+j)
  402.                call vorzeichenbox 1.6, (1.95+j)
  403.                call vorzeichenbox 1.8, (2.35+j)
  404.              end
  405.  
  406.            if zahl == 6 then
  407.              do
  408.                call vorzeichenbox 1, (2.15+j)
  409.                call vorzeichenbox 1.2, (1.85+j)
  410.                call vorzeichenbox 1.4, (2.25+j)
  411.                call vorzeichenbox 1.6, (1.95+j)
  412.                call vorzeichenbox 1.8, (2.35+j)
  413.                call vorzeichenbox 2.0, (2.05+j)
  414.              end
  415.            j=j+2
  416.         end
  417.       end
  418.       if systemart == '1v' then
  419.       do
  420.        do i=1 to 12
  421.           if zahl== 1 then
  422.             do
  423.               call vorzeichenbox 1, (1.95+j)
  424.             end
  425.  
  426.           if zahl == 2 then
  427.             do
  428.               call vorzeichenbox 1, (1.95+j)
  429.               call vorzeichenbox 1.2, (1.65+j)
  430.             end
  431.  
  432.           if zahl == 3 then
  433.             do
  434.               call vorzeichenbox 1, (1.95+j)
  435.               call vorzeichenbox 1.2, (1.65+j)
  436.               call vorzeichenbox 1.4, (2.05+j)
  437.             end
  438.  
  439.           if zahl == 4 then
  440.             do
  441.             call vorzeichenbox 1, (1.95+j)
  442.             call vorzeichenbox 1.2, (1.65+j)
  443.             call vorzeichenbox 1.4, (2.05+j)
  444.             call vorzeichenbox 1.6, (1.75+j)
  445.             end
  446.  
  447.           if zahl == 5 then
  448.             do
  449.             call vorzeichenbox 1, (1.95+j)
  450.             call vorzeichenbox 1.2, (1.65+j)
  451.             call vorzeichenbox 1.4, (2.05+j)
  452.             call vorzeichenbox 1.6, (1.75+j)
  453.             call vorzeichenbox 1.8, (2.15+j)
  454.             end
  455.  
  456.           if zahl == 6 then
  457.             do
  458.               call vorzeichenbox 1, (1.95+j)
  459.               call vorzeichenbox 1.2, (1.65+j)
  460.               call vorzeichenbox 1.4, (2.05+j)
  461.               call vorzeichenbox 1.6, (1.75+j)
  462.               call vorzeichenbox 1.8, (2.15+j)
  463.               call vorzeichenbox 2.0, (1.85+j)
  464.             end
  465.           j=j+2
  466.        end
  467.       end
  468.    end
  469.  
  470.    when art == '#' then
  471.    do
  472.    art = 's'
  473.        if systemart == '2' then
  474.        do
  475.          do i=1 to 6
  476.             if zahl == 1 then
  477.               do
  478.                 call vorzeichenbox 1, (1.67+j)
  479.                 call vorzeichenbox 1, (3.87+j)
  480.               end
  481.  
  482.             if zahl == 2 then
  483.               do
  484.                 call vorzeichenbox 1, (1.67+j)
  485.                 call vorzeichenbox 1, (3.87+j)
  486.                 call vorzeichenbox 1.2, (1.97+j)
  487.                 call vorzeichenbox 1.2, (4.17+j)
  488.               end
  489.  
  490.             if zahl == 3 then
  491.               do
  492.                 call vorzeichenbox 1, (1.67+j)
  493.                 call vorzeichenbox 1, (3.87+j)
  494.                 call vorzeichenbox 1.2, (1.97+j)
  495.                 call vorzeichenbox 1.2, (4.17+j)
  496.                 call vorzeichenbox 1.4, (1.57+j)
  497.                 call vorzeichenbox 1.4, (3.77+j)
  498.               end
  499.  
  500.             if zahl == 4 then
  501.               do
  502.                 call vorzeichenbox 1, (1.67+j)
  503.                 call vorzeichenbox 1, (3.87+j)
  504.                 call vorzeichenbox 1.2, (1.97+j)
  505.                 call vorzeichenbox 1.2, (4.17+j)
  506.                 call vorzeichenbox 1.4, (1.57+j)
  507.                 call vorzeichenbox 1.4, (3.77+j)
  508.                 call vorzeichenbox 1.6, (1.87+j)
  509.                 call vorzeichenbox 1.6, (4.07+j)
  510.               end
  511.  
  512.             if zahl == 5 then
  513.               do
  514.                 call vorzeichenbox 1, (1.67+j)
  515.                 call vorzeichenbox 1, (3.87+j)
  516.                 call vorzeichenbox 1.2, (1.97+j)
  517.                 call vorzeichenbox 1.2, (4.17+j)
  518.                 call vorzeichenbox 1.4, (1.57+j)
  519.                 call vorzeichenbox 1.4, (3.77+j)
  520.                 call vorzeichenbox 1.6, (1.87+j)
  521.                 call vorzeichenbox 1.6, (4.07+j)
  522.                 call vorzeichenbox 1.8, (2.17+j)
  523.                 call vorzeichenbox 1.8, (4.37+j)
  524.               end
  525.  
  526.             if zahl == 6 then
  527.               do
  528.                 call vorzeichenbox 1, (1.67+j)
  529.                 call vorzeichenbox 1, (3.87+j)
  530.                 call vorzeichenbox 1.2, (1.97+j)
  531.                 call vorzeichenbox 1.2, (4.17+j)
  532.                 call vorzeichenbox 1.4, (1.57+j)
  533.                 call vorzeichenbox 1.4, (3.77+j)
  534.                 call vorzeichenbox 1.6, (1.87+j)
  535.                 call vorzeichenbox 1.6, (4.07+j)
  536.                 call vorzeichenbox 1.8, (2.17+j)
  537.                 call vorzeichenbox 1.8, (4.37+j)
  538.                 call vorzeichenbox 2.0, (1.77+j)
  539.                 call vorzeichenbox 2.0, (3.97+j)
  540.               end
  541.             j=j+4
  542.          end
  543.        end
  544.        if systemart == '1b' then
  545.        do
  546.          do i=1 to 12
  547.             if zahl == 1 then
  548.               do
  549.                 call vorzeichenbox 1, (1.87+j)
  550.               end
  551.  
  552.             if zahl == 2 then
  553.               do
  554.                 call vorzeichenbox 1, (1.87+j)
  555.                 call vorzeichenbox 1.2, (2.17+j)
  556.               end
  557.  
  558.             if zahl == 3 then
  559.               do
  560.                 call vorzeichenbox 1, (1.87+j)
  561.                 call vorzeichenbox 1.2, (2.17+j)
  562.                 call vorzeichenbox 1.4, (1.77+j)
  563.               end
  564.  
  565.             if zahl == 4 then
  566.               do
  567.                 call vorzeichenbox 1, (1.87+j)
  568.                 call vorzeichenbox 1.2, (2.17+j)
  569.                 call vorzeichenbox 1.4, (1.77+j)
  570.                 call vorzeichenbox 1.6, (2.07+j)
  571.               end
  572.  
  573.             if zahl == 5 then
  574.               do
  575.                 call vorzeichenbox 1, (1.87+j)
  576.                 call vorzeichenbox 1.2, (2.17+j)
  577.                 call vorzeichenbox 1.4, (1.77+j)
  578.                 call vorzeichenbox 1.6, (2.07+j)
  579.                 call vorzeichenbox 1.8, (2.37+j)
  580.               end
  581.  
  582.             if zahl == 6 then
  583.               do
  584.                 call vorzeichenbox 1, (1.87+j)
  585.                 call vorzeichenbox 1.2, (2.17+j)
  586.                 call vorzeichenbox 1.4, (1.77+j)
  587.                 call vorzeichenbox 1.6, (2.07+j)
  588.                 call vorzeichenbox 1.8, (1.37+j)
  589.                 call vorzeichenbox 2.0, (2.97+j)
  590.               end
  591.             j=j+2
  592.          end
  593.        end
  594.        if systemart == '1v' then
  595.        do
  596.          do i=1 to 12
  597.             if zahl == 1 then
  598.               do
  599.                 call vorzeichenbox 1, (1.67+j)
  600.               end
  601.  
  602.             if zahl == 2 then
  603.               do
  604.                 call vorzeichenbox 1, (1.67+j)
  605.                 call vorzeichenbox 1.2, (1.97+j)
  606.               end
  607.  
  608.             if zahl == 3 then
  609.               do
  610.                 call vorzeichenbox 1, (1.67+j)
  611.                 call vorzeichenbox 1.2, (1.97+j)
  612.                 call vorzeichenbox 1.4, (1.57+j)
  613.               end
  614.  
  615.             if zahl == 4 then
  616.               do
  617.                 call vorzeichenbox 1, (1.67+j)
  618.                 call vorzeichenbox 1.2, (1.97+j)
  619.                 call vorzeichenbox 1.4, (1.57+j)
  620.                 call vorzeichenbox 1.6, (1.87+j)
  621.               end
  622.  
  623.             if zahl == 5 then
  624.               do
  625.                 call vorzeichenbox 1, (1.67+j)
  626.                 call vorzeichenbox 1.2, (1.97+j)
  627.                 call vorzeichenbox 1.4, (1.57+j)
  628.                 call vorzeichenbox 1.6, (1.87+j)
  629.                 call vorzeichenbox 1.8, (2.17+j)
  630.               end
  631.  
  632.             if zahl == 6 then
  633.               do
  634.                 call vorzeichenbox 1, (1.67+j)
  635.                 call vorzeichenbox 1.2, (1.97+j)
  636.                 call vorzeichenbox 1.4, (1.57+j)
  637.                 call vorzeichenbox 1.6, (1.87+j)
  638.                 call vorzeichenbox 1.8, (2.17+j)
  639.                 call vorzeichenbox 2.0, (1.77+j)
  640.               end
  641.             j=j+2
  642.          end
  643.        end
  644.    end
  645.    otherwise exit_msg("Error in the input! BREAK!!!")
  646.  end
  647. takt()
  648. end
  649.  
  650. takt:
  651. do
  652.  call ppm_SetFont('(CG)Times')
  653.  call ppm_SetSize(16)
  654.  
  655.  if takt ~= '' then
  656.   do
  657.    oben  = WORD(takt, 1)
  658.    unten = WORD(takt, 2)
  659.    if unten == '' then exit_msg("Error in the input! BREAK!!!")
  660.    id = ppm_CreateBox(1.15+(k*0.2), 2,  0.3, 0.6, 0)
  661.    call ppm_TextIntoBox(id, oben)
  662.    id = ppm_CreateBox(1.15+(k*0.2), 2.4,  0.3, 0.6, 0)
  663.    call ppm_TextIntoBox(id, unten)
  664.    if systemart == '2' then
  665.      do
  666.        id = ppm_CreateBox(1.15+(k*0.2), 4,  0.3, 0.6, 0)
  667.        call ppm_TextIntoBox(id, oben)
  668.        id = ppm_CreateBox(1.15+(k*0.2), 4.4,  0.3, 0.6, 0)
  669.        call ppm_TextIntoBox(id, unten)
  670.      end
  671.   end
  672.  else NOP
  673.  call ppm_SetFont('(CG)Noten')
  674.  call ppm_SetSize(20)
  675.  call ppm_UpdateScreen()
  676.  noteneingabe()
  677. end
  678.  
  679. vorzeichenbox:
  680. do
  681.     parse arg bx,by
  682.     id = ppm_CreateBox(bx, by,  0.35, 0.75, 0)
  683.     call ppm_TextIntoBox(id, art)
  684. return
  685. end
  686.  
  687. break_d:
  688. break_e:
  689. break_c:
  690. halt:
  691.     call exit_msg("User aborted Genie!")
  692.  
  693. exit_msg: procedure
  694. do
  695.     parse arg message
  696.  
  697.     if message ~= '' then
  698.     call ppm_Inform(1,message,)
  699.  
  700.     call ppm_ClearStatus()
  701.     call ppm_AutoUpdate(1)
  702.     exit
  703. end
  704.  
  705.